ccccccccccce Lk IIIIII11 UUU UUU TTTTTTTTTTTTTTT CLt 
cccccccccccc LLL III1I111 UUU UUU TTTTTTTTTTTTTTT LLet 
cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 


_ eee 
EE 
EE 
eecee 
eeee 
EE eeece 
EE eeee 


m 10 


Od Od Ok Od Od Od Od Od Od Dd Od Od Od Od 
Ok Ok Od Od Od nd Od Od Od Od Od Pd nd 
— — 
oe —— 


ee 
ee ee ee ee eee eed 


to 
= 
tt 
— 
—e mn NMNMM 
fate nn MMWMnm 
fem tee mn nw nw 
po nw mw mown 
(el gel al goed eel ool col el ool el el el eld nn nn nn 
a ed ee ee ee ee ee ee nn nn “nn 
oe mn “wn nn 
os mn mn nw 
be NNMM mn 
bee NNNM nn 
>>>>>>>>>> 
>o>>>>>>>>> 
>> —— agen 
>> ae omg ee 
>> BG IG Od OY NY ad oy End Dg Od 
>> ae ae ae Oa nd Om Beng ng eng Ed Oe OS 
>> ety on 
>> eo og — oe 
>>>>>>>>>> 
>o>>>>>>>>> 
wVY Vu a4 
ww Wu odaH4 
wv wu aH 
ww Vu a 
YUwvV Ywv a4 
ww VV a 
ww Vu a4 
Vv Vw aJ4 
BOYVYVOUYYUUYY ed ed ed ed ed od) od) od 2) od I) od) 
YVVVVYVUYUUUUY ee ee ee es Se) 


**F ILE**1De*CVTTIME 


OL 
Yyeewwwwwwe OC 


ODONOULEN 


N 1 
- CONVERT CLI TIME TO BINARY ' 15-SEP-1984 23:39:39 VAX/VMS Macro v04-00 Page 0 


DECLARATIONS 
LISSCVT TIME 
RN STRING = RETURN DATE NG IF REQUESTED 
LIBSCVT_ATIME = CONVERT ABS 
LIBSCVT“DTIME = CONVERT D 
PARSE INPUT STRING 
CNV_MNEM_DAY 
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TITLE CVITIME = CONVERT CLI TIME TO BINARY 
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ALL RIGHTS RESERVED. 
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THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeRPORAT ioe. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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AUTHOR: C. MONIA - CREATION DATE: 12-SEP-1977 
; MODIFIED BY: 


v03-005 PCG0001 Peter George 23-Jun-1983 
Do not accept keywords as delta time strings. 
Remove leading blank from absolute time string. 


v03-004 BLS0210 Benn Schreiber 3-Mar-1983 
Change third arg to be string descriptor, add 3 more 
ores. vors around absolute addressing caused by reference 
to D ABLE. Get length of return value when calling | 
Easctim from LIBSCVT_TIME. 


V03-003 LMP49245 L. Mark Pilant 20-Sep-1982 16:15 
Correct offset used to Bt poe pF “VESTERDAY''. 
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4 172; 
4 138 ; OFFSETS FROM FP USED BY LIBSCVT_TIME 
r Ve : (NB: This is not the only use of the stack) 
4 126 SOF FSET O.NEGATIVE <- 
4 17 sTEMporee aS TS_LEN N>,- : LIBSCVTTIME eneerecy it ieetne 
; 4 178 <TEMPDESC 3; Descriptor f 
6 7 <SCRATCHSI TE, O>- : Size of Scratch Area | 
004 180 > 
FFC4 TEMPSTRING: 
FEB SERATCRSIZE: | 
b00G 181 | | 
9004 gi : OWN STORAGE: 
00000000 184 .PSECT _CNVCLI_CODE  NOWRT,LONG | 
00000000 sa 186 CNV_RELOC: .BLKL 0 ; DEFINE RELOCATION BASE 
8000 189 | TOKEN LIST 
$008 150 : 
0000 191 
0090009 0000 19¢ sss2s. : 
D 3A 20 0000 193 TOKENS: .ASCII / :-/<E0S> : ORDER IS FIXED 
© SBod00 4 9004 194 NTOKNS=.-$$$2 : 
004 195 
0004 196; 
9004 197 : TOKEN SUBSTITUTION STRINGS 
0004 199 ADJACENCY REQUIRED 
004 200; 
0004 201 : COLON 
004 0¢ : 
004 20 
20 004 204 COLDAY: .ASCII /-/ 3 DD: 
D 0005 205 COLMON: .ASCII /-/ : DD-MMM: 
00 20 4 . eASCIZ // : DD-MMM-YYYY: 
00 COLHR: : apg ta ae 
90 3 008 8 COLMIN: .ASCIZ /:/ ; COD-MMM-YYYY 
00 20 30 OA 09 COLD: .ASCIZ /0 / ; <BLANK>! <o>tibie Mi nes. $$] 
| 
OD 211; 
Op 193 : END OF STRING 
D 213: | 
00D 21% | 
00000000 000d 215 $$$ 
D 000D 16 E : DD<EOS> 
D OO0OE 217 € + DD-MMM<EOS> 
F 218 END + DD<BLANK><E0S> 
F 219 END + DD-MMM-YYYY<EOS> 
H A 1 E : CDD-MMM-YYYYJ: HH<EOS> 
30 30 2€ 0 3a 0014 1 END 0.00/ : DD-RMA-V VY : HH: MM<EQS> 
1A : E : COD-MMM-YY H:MM:SS.SS<E0S> 
18 ; } ; ILLEGAL CHARACTER TERMINATOR 
1D § TBUF=<<f ILCNT *MAXLGH>*+3>8-4 : SITE OF BUFFER ON STACK 
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DECLARATIONS 278Eb= 1383 33:72:33 CLIUTL.SRCICVTTIME MAR; 1 
BR 
1p 8 ; BUFFER LENGTHS FOR ASCII TIME CONVERSION CALLS 
1D 0° 
000 1D 1 SHORT_TIME_LEN=11 : LENGTH OF BUFFER FOR TIME WITHOU 
0000 1D : MIDNIGHT _LEN= ; LENGTH OF MIDNIGHT ASCII TIME ST 
000002C 1D FULL_TIME_LEN=TBUF ; FULL TIME BUFFER LENGTH 
ib 588; 
1D 6 : MINUS SIGN 
B Se: 
01D - NDAY: 3 tt on rt tee 
00 20 0010 40 MINMON: .ASCIZ /=/ : DD-MM-CLYYYY:HH:MM:SS.SS]<EOS> 
O1F 42 ; 
O01" “§ > DEFINE STATE TABLES FOR TIME CONVERSION 
Orr 49 ? INITIAL STATE 
OO1F 23 : PARSE DAY OF MONTH 
se Bie 
OO1F 250 STATE DAY : PARSE DAY OF MONTH 
OO1F 251 TOKEN €0OS,HOURS,COLDAY,RESCAN ; ASSUME TIME ON END OF STRING 
OO1F 38 TOKEN <:>,HOURS.COLDAY.RESCAN : ASSUME TIME ON COLON 
OO1F 25 TOKEN =,MONTH, MIND : PARSE MONTH OF YE 
OO1F 254 TOKEN <‘>,HOURS,COLDAY,RESCAN '; ASSUME TIME ON SPACE 
He 
OO1F 3$ : PARSE MONTH OF YEAR 
bole 880° 
OO1F . 260 STATE MONTH : 
or 61 TOKEN €0S,,ENDMON | TERMINATE ON END OF STRING 
1F 6¢ TOKEN < >. HOURS, COLMON : TERMINATE MONTH, CONVERT TIME 
OO1F 26 TOKEN <:>_HOURS.COLMON : TERMINATE MONTH, CONVERT TIME 
O1F 264 TOKEN =, YEAR, MINMON : PARSE YEAR 
gH Be 
1F 6 : PARSE YEAR 
Bee 
1F 0 STATE YEAR : 
OIF 71 TOKEN €E0S,,ENDYR : TERMINATE ON END OF STRING 
1F Oa? TOKEN <:>. HOURS, COLYR : CONVERT TIME, TERMINATE DATE 
OF 3 TOKEN < >. HOURS.COLYR : CONVERT TIME. TERMINATE DATE 
1F 73 3 
1F 276 : PARSE HOURS 
if 578° 
1F 8? STATE HOURS, <0> : 
1F 0 TOKEN £EOS,,ENDHR : TERMINATE ON END OF STRING 
1F 1 TOKEN <:>. MINUTES, COLHR + MOVE TOKEN 
1F 2 TOKEN < >, HOURS, ,NULL : IGNORE SPACES 
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G04-008 DECLARATIONS - ett 1 33:72:38 CL iuTL se REJeVTTI IME .MAR; 1 

Ha 
1F 5 3 PARSE MINUTES 
if 589° 
1F STATE MINUTES,<0> : 
1F § TOKEN £0S,,ENOMIN + TERMINATE ON END OF STRING 
1F 0 TOKEN <:>,SECONDS,COLMIN : MOVE PARSED STRING 
1F (291 TOKEN < >, MINUTES,,NULL : IGNORE SPACES 

a 
1F 34 + PARSE SECONDS 
if $6 . 

O1F 29 STATE SECONDS,<0> ; 
1F 98 TOKEN £&OS,,ENDSECS : TERMINATE ON END OF STRING 
1F 29 TOKEN <> + SECONDS) NULL : IGNORE SPACES 

BIE 809 

or 0¢ t PARSE DELTA-TIME FORMAT 

O1F 04 : PARSE DELTA-DAY 

Bole oa 

Sore 89 STATE DELTA_DAY,<0> : 

Orr 08 TOKEN EOS,HOURS.COLD,RESCAN =: RESCAN ON END OF STRING 

O1F 309 TOKEN <:>. HOURS, COL LD, RESCAN : RESCAN ON COLON 

OO1F 310 TOKEN < >-HOURS.COLD.RESCAN : RESCAN ON SPACE 

001F 11 TOKEN <=>. HOURS, “coLyR t MOVE PARSED STRING 


rove 8, 


ESERIES SSiTEi28 HOMIUPESRESEPincoman:1 P88, 
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; DEFINE MNEMONIC KEYWORDS THAT CAN REPRESENT TIMES 


AY_T 


ABLE: 
KEY_ENTRY YEST 
KEY-ENTRY TODA 


KEY-ENTRY T 
DAY_TBL_LEN=.-DAY_ TABLE 


VESTERDAY"’ | 
“TODAY 


‘TOM 
LENGTH OF KEYWORD TABLE 


0000000C 


TIME FACTORS. EACH KEYWORD HAS AN ASSOCIATED TIME FACTOR, WHICH, WHEN ADDED 
: ive eivulee trainee VALUE, CREATES A 64-BIT TIME VALUE THAT IS EQUIVALENT TO 


3 YESTERDAY _IS ONE NANOSECOND BEFORE ZERO TIME TODAY. 

: TODAY IS ZERO TIME TODAY. 

; TOMORROW IS ZERO TIME TODAY PLUS ONE DAY'S WORTH OF NANOSECONDS. 
; NOTE THAT THE FIGURES IN THIS TABLE ARE "MAGIC'’ NUMBERS. 

T 


FB PWIA AAAI ROPORIPURININININ 2 2 oe 


MO OONAOUN EWN" O OONAUE WN OOONAULS Ww 


IME_TABLE: 
«LONG *%*XD5964000 ; ‘YESTERDAY’ 
LONG “XFFFFFF36 
-LONG 0 : ‘TODAY’ 
- LONG 
ONG 


} 

| 

| 

0 

"LONG © *X2A69C000 ; "TOMORROW" 
= % “xC9 
| 
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v04-000 AI PSER=1986 337328 LOCURL.SRESe VI Tingman:1 | P88 «By, 
if «SBTTL LIBSCVT_TIME 


FUNCTIONAL DESCRIPTION: 


THESE ROUTINES ARE CALLED TO 50¥ VERT ASCII STRING INTO A FORM 
THAT IS ACCEPTABLE TO THE ‘GET TIME’ Syst EM SERVICES. 


ENTRY POINT LIBSCVT_TIME IS CALLED TO CONVERT A STRING TO ABSOLUTE 
BINARY TIME. 


parey POINT LIBSCVT_DTIME IS CALLED TO CONVERT A STRING TO DELTA 


os 
+ 


THE FULLY EXPANDED TIME STRING, AS SEEN BY THE SYSTEM, HAS THE FORM: 
DD-MMM-YYYY<BLANK>HH:MM:SS.SS 
WHERE ANY FIELD MAY BE EMPTY. 


THE TIME CONVERSION po Ae gS. CONVERT ABBREVIATED INPUT SUPPLIED BY 
THE CALLER INTO THE ABOVE es THEN INVOKE THE SYSTEM SERVICE TO 


MFEWN $$ O OONOUS WN -OOOnNe 


Bee CONVERT THE STRING TO BINARY 
O94 ; THE FOLLOWING FORMS ARE ACCEPTABLE: 
4 1 DD-MMM-YYYY:HH:MM:SS.SS = FULL 
94 $ DD-MMM-YYYY<BLANK>HH:MM:SS.SS = FULL 
: 5 DD-MMM: HH: MM - TRUNCATED FIELDS 
? DD--VYYY:HH::SS - NULL FIELDS 
4 HH: CMM:SS.SS) - TIME ONLY 


DELTA TIME SYNTAX 

THE FULLY EXPANDED DELTA TIME STRING AS SEEN BY THE SYSTEM IS: 
DD<BLANK>HH:MM:SS.S 

WHERE ANY FIELD MAY BE EMPTY. 

THE FOLLOWING FORMS ARE ACCEPTABLE: 


| 
| 
| 
ABSOLUTE TIME SYNTAX: 
| 
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04 | 
$e DD-HH:MM:SS.SS ~ FULL 
004 DD-HH: = TRUNCATED FIELDS | 
004 DD-:AM - NULL FIELDS | 
1m HHC:MM:SS.SS) - TIME ONLY | 
043 400: CALLING SEQUENCE: 


J 11 
US CREPE Sgt TNE 1 ova TERECIOE SEALS WAMURELMESEWPtADeu.s 


d CALL LIBSCVT TIME  (DESCRL TAME C TDESC] LENT CUSEDLEN) , CFLAGS) 
GAL LIBeeVT-atine (BESSA ine: SuTbESE. “Fount FUREBLEN FLags2) 
4 “ . 
4 INPUT PARAMETERS: 
4 DESCR = ADDRESS OF INPUT STRING DESCRIPTOR 
41 TIME = ADDRESS OF QUADWORD TO RECEIVE CONVERTED TIME 
4] OUTDESC = COPTIONAL] ADDRESS OF DESCRIPTOR FOR CONVERTED TIME 
41 ASCII STRING 
41 OUTLEN = COPTIONAL] ADDRESS OF WORD TO RECEIVE OUTPUT STRING LENGTH 
4 USEDLEN = COPTIONAL] ADDRESS OF WORD TO RECEIVE LENGTH OF STRING USED 
1 FLAGS = COPTIONAL) NYI 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
RO=CLIS_NORMAL 


TIME = ABSOLUTE BINARY TIME IN 64-BIT FORMAT 


RO=CLIS_IVVALU 

INVALID TIME FORMAT DETECTED 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 


RO LBS = SUCCESS 
RO LBC = SYNTAX ERROR 
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PERL LRRE 


NAMES WO OO NA UE WN OS OOD NAN E WINS OD NAME WIN 2 O OONAULS UO ODNOAUS 


N04 

OC SIDE EFFECTS: 

D043 44 

0043 44 NONE 

00463 44 

tie 4 os 

004 4 

0043 49¢ ; CONVERT FULL TIME STRING 

043 .ALIGN LON 

D044 4 SENTRY LIBSCVT TIME “MCR2,R3,R4,R5,R6,R7.RB_R 

car “Of 1046 4 VAL SCRATCHS| E(§P),S RESERV VE Rei STORAGE 

6E 0044 BF on oe 0 D06A 4 MOVCS #0, (SP).#0,#-SCRATCHSIZE,(SP) : ZERO THE SCRATCH STORAGE 
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1 
1 
7 
(FP) 
) 


al ed vv 


Fis LEN! 


10$ 
#*A/ /,(R3) 
10$ 


R 
#*A/+/ ,R2,(R3) 
RO,R6 


4 
#*A/:/,R2,(R3) 
R1,R4 


#*A/=/ ,R2,(R3) 
40 
R1,R5 

4 


7 
#*A/-/ RO, (R1) 
R1,R4 


* 
#*A/-/ RO, (R1) 
408 


SP) 
R3,-(SP) 
R5,R1,-(SP) 


TIMADR=8(SP) 
(SP) 
Bowe BSCVT_ATIME 
ow 
nO;18b8 


W1986 93:13:28 ECUIUTE. SRESeWY tne cman: 


ADDR TO HOLD RETURNED STRING 
SETUP DESCRIPTOR 


Get STRING DESCRIPTOR 
Truncete length to a word 


CHARACTERS LEFT TO EXAMINE? 
SKIP 


NO, 
DELETE LEADING BLANK 
BRANCH IF NOT BLANK 


INCREMENT ADDRESS 
LOOK FOR PLUS SIGN 


LOOK FOR COLON 
SAVE ADDR IF FOUND 


LOOK FOR DASH 
BR IF ABS TIME ONLY 
SAVE LOC. OF FIRST DASH 


IF YES = THEN DELIMITER 
ADJUST COUNT BEYOND tnt? 


0 ASH 
FEO, = THEN, NOT FOUND 


IF YES = THEN DELIMITER 


ADJUST COUNT BEYOND 2ND. ‘‘="* 
ADJUST ADDR BEYOND 2ND ‘'=" 
LOOK FOR THIRD DASH 

IF FOUND = THEN DELIMITER 


INCREMENT BEYOND ‘'~"" 


CAN NEXT CHAR BE A DIGIT? 
IF LESS THAN = THEN NO 
CAN CHAR BE A DIGIT? 


If GT = TH 
BREAK STRING AT DIGIT OR DASH 


QUAD WORD TIME BUFFER 

GET ADDR. OF ABS TIME STRING 
LENGTH OF ABS 

BR _IF ABS TIME PRESENT 

GET CURRENT TIME 

DON'T CONVERT ABS TIME 


gre oe ABS T 
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LIBSCVT_TIM 4-5 CLIUTL.SRCICVTTIME MAR; 1 
08 BC OB AE 7D : 15 80$ MOVQ «8 (SP) ,@B (AP) : MOVE TIME TO USER BUFFER 
: D i$ INCL (SP) : INCLUDE DELIMITER IN COUNT 
04 ag ¢ EA 51 ADDL.  (SP),4(SP) : POINT TO DELTA TIME 
6 5 E ; E SUBL3 (5P).R2, (SP) + CALC LENGTH OF DELTA TIME 
A F BLEG 1408 : EXIT IF NO DELTA TIME 
B AE 7F OOFS ; PUSHAQ BSP) : ADDR OF BUFFER 
A F OOF? PUSHAQ 4(5P) + ADDR OF DESCRIPTOR 
0180'CF Q F FA 4 CALLS #2 ,WeLIBSCVT DTIME + CONVERT DELTA TIME 
39 E FF 5 LBC °18 : IF LBC - THEN ERROR CONVERTING 
51 O08 AC 00 01 ; VL  8(AP),R1 GET ADDR OF USER BUFFER 
56 (DS (OT 6 8 TSTL DELTA TIME PLUS OR MINUS? 
0B 1 é ; BEQL 1208 + BR IF MINUS 
; . 1 ; delta time is negative so arithmetic is inverted 
61 OB AE C3 104 s SUBL3 8(SP),(R1),(R1)4 : SUBTRACT DELTA 
61 OC AE D9 O10F 534 SBWC 3-12 (SPS, (RIS : FROM ABS TIME 
09 «(11 113 535 BRB 140$ + RETURN 
61 OB AE C1 0115 5 6 120$: ADDL3 8 (SP),(R1),(R1)+4 + ADD DELTA 
61 OC AE 08 OTA 33 ADWC ©: 12 SPS, (RIS : TO ABS TIME 
03 6C 91 O11E 8 140$: CMPB (apy ag : DO WE NEED 10 oR TURN THE DATE/TIME? 
18° 1F 0121 539 BLSSU 180$ ; IF LSSU N T BOTHER 
01 540 SASCTIM_S TIMADR=@8(AP) ,- : YES, SU Neate BINARY TIME 
01 541 TIMBUF =TEMPDESC (FP) ,- 
01 248 TIMLEN=TEMPDESC (FP) 
58 BC AD 7D 0135 54 MOVQ _— TEMPDESC(FP) RS : LOAD DESCRIPTOR 
01 10 0139 544 BSBB = RETURN_STRING : RETURN STRING TO USER 
04 01 545 180$: RET 
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c 47 re ~SBTTL RETURN STRING = RETURN DATE/TIME STRING IF REQUESTED 
¢ § ; FUNCTIONAL DESCRIPTION: 
13¢ : THIS ROUTINE RETURNS THE DATE/TIME STRING (AND STRING) LENGTH 
: ; TO THE CALLER IF THE OPTIONAL ARGUMENTS ARE PRESENT 
¢ 4 : INPUTS: 
13¢ $ : Rg LENGTH OF DATE/TIME STRING 
¢ ; R ADDRESS OF DATE/TIME STRING 
13¢ 25.3 12cap) IF PRESENT, ADDRESS OF OUTPUT STRING DESCRIPTOR 
¢ 69 3 16(AP) IF PRESENT, ADDRESS OF WORD TO STORE OUTPUT STRING LENGTH 
13¢ e jee 
c 63 .WEAK DCLSSCOPY_DXDx :DON'T COMPLAIN IF NOT FOUND 
13C 565 RETURN_STRING: 
50 01 pO 013¢ 08 MOVL #1,R0 sPRESET SUCCESS 
03 6C 91 O13F ; CMPB «NC AP) #3 STHIRD ARGUMENT PRESENT? 
40 1F Ibe 8 BLSSU ‘ $ SBRANCH IF 
Oc AC 05 14 $9 TSTL (AP) SYES, BUT WAS IT DEFAULTED? 
38 13 0147 0 BEQL 208 *BRANCH IF SO 
5 03 149-571 TSTL OR SNON-ZERO STRING? 
09 13 0148 es BEQL «=s«éSS SIF EQL ZERO STRING 
20 69 91 0140 57 CMPB 3s (RO) WAS / :1S LEADING CHAR A SPACE? 
04 13 130 74 BNEQ 5$ [IF NEQ NO 
58 407 015 75 DECL RB ‘YES, STRIP IT OUT 
59 Dé 0154 «57 INCL RO : AND DON'T COPY IT 
39 DD 0156 577 Ss: PUSHL R9 SFORM DESCRIPTOR ON STACK 
8 od 0158 578 PUSHL Rg ices 
Oc AC DD 015A =579 PUSHL 12(AP) :STACK OUTPUT DESCRIPTOR ADDRESS 
04 AE OF 015D 0 PUSHAB 4(SP) SSTACK INPUT DESCRIPTOR ADDRESS 
50 00000000'GF 9 160 1 MOVAB G°DCLSSCOPY_DXDX.RO [1S DCL STRING COPY PRESENT? 
07 12 016 : BNEQ 0$ SIF NEQ YES--GO USE IT 
50 00000000'°GF  9E 169 8 MOVAB G*LIBSSCOPY_DXDx,RO [NO--USE LIBSSCOPY 
60 04 FB a78 4 10$: CALLS #4,(RO) :COPY STRING, CLEAR DESCRIPTOR 
06 50 £9 017 6 BLBC =—_—«aRO,, 208 [BRANCH IF SOME SORT OF COPY ERROR 
04 6¢ 1 1% CMPB OO s«CAP) #4 [WAS 4TH ARGUMENT PRESENT? 
9 1 O17 : BLSSU 20% s1F L 
10 at p 178 8 sit JocaP) :YES. DEFAULTED? 
10 BC 8 8 18 9 MOVU RB,a16(AP) [NO, STORE OUTPUT STRING LENGTH 
184 592 208: RSB 
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VERT ABSOLUTE TIME  'AaSEP=1984 SBitsioB FORIU TS eRe Stat omans7 PAM 12, 


«SBTTL LIBSCVT_ATIME = CONVERT ABSOLUTE TIME 


CONVERT ABSOLUTE TIME 


1 
ae 
188 $99 | 
188 899 
1 é 0 .ENABL LSB 
1 
OFFC 01 g 4 ENTRY LiBscvt ~ATIME , “M<R2,R3,R4,R5,R6,R7_RB, RQ. R10,R11> 
5B 909° EF 9 1 604 MOVAB : Get AbD RESS F State TABLE 
52 009 8088 p 1 : ‘ 5 MOVL met ts ly IWyALU, R2 : ee RING TOO LONG 
4 BC D 01 6 MOVG : GET uaF RINE DESCRIPTOR 
36 6 3¢ 0199 6 MOVZWL a R6 3; Truncate aS to a word 
GUS oR ERY) gitenn Pa ee 
SE 2 C2 O1A1 610 SUBL #TBUF,SP : ALLOCATE BUFFER ON STACK 
D4 O1A4 611 CLRL RB : CLEAR OUTPUT STRING COUNT 
59 SE 20 1Ag 61g MOVL  SP,R9 + POINT TO BUFFER 
00E4 19 61 BSBW = CNV_LMNEM_DAY ; SEE IF THE INPUT STRING Is A ator 
haa i Mbaenbgieno TODA 
25 50 £9 1AC 616 BLBC RO, 10$ : IF NOT, CHECK OUT DELTA TIMES 
* $180 618 - ; 


B 12 
RT CLI TIME TO ie 15-SEP-1984 93:72:32 AX/VMS Macro V04-00 Page 
_DTIME = CONVERT DELTA TIME 46-SEP-1984 23:15:28 Ch tuTt es ReJevT TIME MAR; 1 
18 6 0 ~SBTTL LIBSCVT_DTIME = CONVERT DELTA TIME 
18 : 
18 é + CONVERT DELTA TIME 
180 625 ° 
OFFC 0180 6 g .ENTRY LIBSCVT DTIME. “M<R2,R3,R4,R5,R6,R7,RB,RI-R10,R11 
58 00000078" EF 9— O1B2 6 MOVAB DELTA_DAY,R11 : GET ADDRESS OF STATE TABLE 
52 00038088 SF p 189 628 MOVL #CLIS$“IVVALU,R2 : ASSUME STRING TOO LONG 
56 04 BC D 0100 629 MOV a4(APT,R6 $ GET STRING DESCRIPTOR 
56 6 3C 01C4 630 MOVZWL R6,R 3; Truncate Length to a word 
td 19 1 bi¢7 631 CMPW | #MAXLGH,R6 + STRING TOO LONG? 
F OI1CA 6 : BLSSU 208 : IF LSSU YES 
SE 2¢ C2 O1CC 63 SUBL  #TBUF,SP t ALLOCATE BUFFER ON STACK 
8 D4 OCF 634 CLRL sR + CLEAR OUTPUT STRING COUNT 
59 SE 00 o1D1 635 wn MOVL  SP,R9 : POINT TO BUFFER 
2D 10 0104 637 BSBB = CNV_PARSTRNG + NORMAL TIME SPECIFIED. PARSE STRING 
FF63 30 0106 638 BSBW RETORN STRING + RETURN STRING TO USER IF REQUESTED 
26 50 €9 0109 639 BLBC —_ RO, : BRANCH IF SOM E SORT OF ERROR 
52 90030001 8F 00 Oi1¢ 640 MOVL aclis NORMAL ,R2 + ASSUME SUCCESS 
7E 58 7D O183 641 MOVG (SP) + PUSH DESCRIPTOR 
50 SE DO 0166 64g MOVL ee: "RO : SAVE DESCRIPT OK ADDRESS 
O1E9 64 SBINTIM_S - : CONVERT TIME T 0 BINARY 
O1E9 644 “TIMBUF=(RO),- : ADDRESS OF TIME BUFFER 
O1E9 645 TIMADR=a8 (AP) : ADDRESS OF QUADWORD RESULT 
07 50 £8 O1F5 646 BLBS R0,20$ : IF LBS, SUCCES 
52 00038088 8F D0 O16 647 ae MOVL  #CLI$_IVVALU,R2 : SET INVALID VALUE 
50 52 DO O1FF 649 MOVL R2,RO ; SET STATUS 
0202 650 30$: ; 
04 020¢ 651 RET ; 
0203 652 
0203 653 .DSABL LSB 


C 12 
CVTTIM - CONVERT CLI TIME TO BINARY 15=SEP=1984 23:39:39 VAX/VMS Ma acro Vv04-00 
G04~000 PARSE INPUT STRING 4-SEP=1984 g 32:33 CLIUTL.SRCJCVTTIME.MAR; 1 
655 i ~SBTTL PARSE INPUT STRING 
637 ; CNV PARSTRNG = PARSE INPUT STRING 
639 : THIS ROUTINE IS CALLED TO PARSE THE INPUT STRING. 
661 + INPUTS: 
og ; RGR? = INPUT STRING DESCRIPTOR 
03 664: R8.R9 = OUTPUT STRING DESCRIPTOR 
03 669 ; R1{ = ADDRESS OF STATE TABLES 
0 ge ¢ OUTPUTS: 
020 668 ; 
4 03 669 : R8B,R9 = STRING DESCRIPTOR FOR PARSED STRING 
0203 671 : REGISTERS MODIFIED: 
0 03 67¢ ; 
0203 673: RO = R11 
0 03 674 :- 
0203 675 
0203 676 CNV_PARSTRNG: ; 
52. D4 0203 677 CLRL = R2 > CLEAR LENGTH OF PARSED STRING 
53 57 00 9205 678 sad MOVL R7,R3 : POINT TO START OF STRING 
54 00 90 0208 680 MOVB #EOS,R4 + ASSUME AT END OF STRING 
56 BS 0208 681 TSTW = R6 : AT END OF STRING? 
05 13 0200 682 BEQL 208 : IF EQL YES 
54 87 90 O20F 68 MOVB  (R7)+,R4 : GET CURRENT CHARACTER 
56 «B7 dete 684 as DECW = R6 t DECREMENT BYTES REMAINING 
FDE6 CF 04 54 3A 0214 686 LOCC R4,#NTOKNS, TOKENS : FIND T 
04 12 021A 687 BNEQ 308 : IF NE OKEN 
52 B6 021C «688 INCW : INCREMENT LENGTH OF PARSED STRING 
E8 11 O21E 68 BRB 10$ : GET NEXT CHARACTER 
0220 690 30$: : 
SA 70 9€ 0220 691 MOVAB =(RO),R10 : REMOVE BIAS, SAVE INDEX 
51 6B4A 9E 0 33 69 MOVAB (R11)€R103.R1 : POINT TO FILL BYTE 
FE BF 61 91 0227 69 CMPB ss (R11) , #RESC t RESCAN REQUIRED? 
11 12 0228 694 BNEQ 35% : IF NEQ NO 
56 52 A 93¢0 695 ADDW RE.RG + BACK OUT STRING 
7 2 @ 6 9 69 SUBL R2.R fp 
00 54 91 0233 69 CMPB =s«R4. #EOS : END OF STRING? 
32 13 36 69 BEQL 4s$ : IF €QL YE 
D 69 DECL R : BACK OUT TOKEN 
566 3A 700 INCL R pa 
2c «(11 =O ¢ f 1 a BRB 45$ ; 
7E 52 a9 0 3 7 g MOVW R2 =(SP) > SAVE LENGTH OF PARSED STRING 
09 (1 41-704 BNEQ 408 : IF NEQ STRING NOT 
53 51 0 43-705 MOVL R1,R3 : POINT 10 FILL BY te 
63 9 46 7 6 TSTB = (R$) + NULL STRING? 
02 13 0248 7 BEQL © 408 3; IF Ea YES 
6— B86 4A f 8 ee INCH = (SP) : SET COUNT TO 1 
50 13 * 4C 710 MOVZWL (ser RO ; Pick up length 
1 1 4F 711 BEQL 45$ : Br if “Roth ing 
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1 TIME TO BINARY 
STRING 
i 41$: MOVZBL (R3)+,R1 
1 CMPB ORT, #*A'a' 
14 BLSSU 
15 CMPB OO aR'1,#*A'2" 
£16 BGTRU 426 
71 BICB2 #*X20,R1 
£18 42$:  MOVB R1,(R8)+CR9) 
71 SOBGTR RO.41$ 
720 45$: 
721 MOVAL NTOKNS(R11)CR103,R11 
7 ; CVTWL  TSTRING(R11) RO 
g on MOVAB CNV_RELOCCROS,RO 
725 MOVB = (RO) +, (RB) +LR9I 
7 6 BNEQ 508 
7 DECW ORB 
, 3 cvTML N XTSTATE(R11),R11 
730 MOVAB CNV_RELOCCR113,R11 
731 BRW CNV~PARSTRNG 
7 é 60S: 
73 RSB 


USE 19be 3:1 
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C 
8 CCLIUTL.SRCICVTTIME MAR; 1 


Pick up next byte 

In lower case range? 

Br if not 

Test high end 

Br if not 

Convert to upper case 

Store in output buffer, bump count 
Loop for count 


POINT TO TOKEN LIST ENTRY 
GET OFFSET TO STRING 
COMPUTE STRING ADDRESS 


SUBSTITUTE STRING FOR TOKEN 
GO AGAIN 


: STRIP EOS 

: POINT TO NEXT STATE 

: IF EQL, TERMINATE SCAN 

: COMPUTE ADDRESS OF NEXT STATE 
: CONTINUE PARSE 
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¢ 
DA 
SBTTL CNV_MNEM_DAY 


i+ | 
: FUNCTIONAL DESCRIPTION: 


THIS ROUTINE CONVERTS AN ASCII STRI 
OR ‘‘TOMORROW'’ INTO A FORM THAT IS A 


NG REPRESENTING "YESTERDAY, “TODAY' 
CC LE TO THE ‘GET TIME" SYSTEM SERVICES. 


T 
MNEM_ 
90 735 
9 
3059 
30789 
90 740: 
3 44] ; EPTAB 
4 748 ; STRINGS ACCEPTED ARE THE FOLLOWING: | 
90 745: YESTERDAY 
9 8 3 TODAY 
9 4 i ; TOMORROW 
0 30 ok: ; ONLY THE FIRST FOUR CHARACTERS OF A STRING ARE READ. UNIQUE ABBREVIATIONS ARE | 
9 90 750 ; ACCEPTED. | 
30 3] : | 
0 $9 O36 INPUTS: | 
90 754: R6,R7 = INPUT STRING DESCRIPTO 
9 90 755: R8,R9 = OUTPUT STRING DESCRIPTOR | 
9290 136 3 8(AP) = ADDRESS IN WHICH TO PLACE ABSOLUTE BINARY TIME IN 64-BIT FORMAT | 
9290 758 : OUTPUTS: 
90 759: 
0290 760; @8(AP) = 64-BIT ABSOLUTE BINARY TIME 
9290 61 3 @12(AP) = OUTPUT STRING DESCRIPTOR...STRING COPIED 
$596 188 : RO= LBS 1 - MATCH FOUND, CONVERSION SUCCEEDED. 
9 30 £64 ; RO= LBS 0 - MATCH NOT FOUND OR CONVERSION FAILED. 
0 30 766 ; RO=CLI$_ABKEYW = AMBIGUOUS KEYWORD | 
0290 ree ; RO MAY CONTAIN ERROR STATUS CODES FROM ‘GET TIME'’ SYSTEM SERVICES. 
0 30 £20 : REGISTERS MODIFIED 
9 30 7 : RO-RS, R10 
0290 774 :-- | 
Be 
90 777 CNV_MNEM_DAY: 
55 04 00 9 90 77 MOVL #4, RS : DEFAULT LENGTH OF SUBSTRING 
9 77 ; PATTERN TO MATCH. 
55 56 91 93 780 CMPB RG RS ; IS THE INPUT STRING SHORTER? | 
03 1A % 781 BGTRU 10 : IF NOT, USE DEFAULT LENGTH. 
55 56 00 98 t ; VL —s R6,, RS : IF SO, USE INPUT STRING LENGTH. 
7E 67 D0 0298 784 10S: MOVL (R7) ,=(SP) : COPY FIRST FOUR LETTERS OF ASCII 
5A SE 00 H 785 MOVL  SP,RIO : STRING ONTO STACK. LOAD STACK ADDRESS 
A 7 § ; INTO TEMPORARY REGISTER. 
6A 80 8F 88 O2A1 7 BISB #128,(R10) ; SET THE HIGH BIT IN THE BYTE 
AS 7? 8 : THAT HOLDS THE FIRST CHARACTER 
AS 7? : OF THE INPUT STRING. | 
6A 20202020 gf A A 790 BICL oe tae tat ae (R10) 3; Convert lower to upper case. 
FDOC CF «6OC: CGA CSS S89 «(O2ACO 791 MATCHC R5,(R10) ,#DAY_TBL_LEN,DAY_TABLE | 
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CvTT = CONVERT cu TIME TO BINARY 15-SEP-1984 23:39:39 VAX/VMS M v04- Pp 18 
v04-005 CNV PINEM_DAY a=8Eb-19be 83:15:28 LCMIUTL. Seesev¥rine man:1 | "88° 18), 
8 33 : LOOK FO FOR A SUBSTRING MAT cH BETWEEN 
B 3 UT STRING AND THE TABLE | 
B3 7 : OF KETVORDS.. | 
8 ; If MATCH IS FOUND, CONTINUE. | 

8 RO : OTHERWISE. SET ERRORS STATUS CODE 
: AND BRANCH TO RETURN CODE. 

SAVE POSITION OF INPUT STRING 


VE 
BY HR FOLLOWS LAST MATCHING 


- | 
BD : CHA : 
63 52 6A 55 39 OB MATCHC R5,(R10),R2, (R3) ; TEST FOR AMBIGUOUS KEYWORD. 
A i C N ; NO MATCH MEANS NO AMBIGUITY. 
50 00038010 8F p ¢ MOVL #CL1$_ABKEYW.RO 3 MATCH MEANS KEYWORD IS AMBIGUOUS. | 
00 1 ra] BRW 80 ; RETURN WITH AN ERROR STATUS CODE. 
54 OO? 30S: DECL R4 ; DECREMENT POINTER SO THAT IT | 
POINTS TO THE LAST CHARACTER 
IN STRING MATCH. 
50 FD4B cf 3 MOVAB DAY_TABLE,RO GET A SS OF DAY TABLE 
54 en SUBL RO,R4 SUBTRACT THE ADDRESS OF THE 
BEG! OF THE RD TABLE | 
FROM THIS CHARACTER'S ADDRESS. 
54 046 C6 DIVL2 #4,R4 C DEX OF THIS KEYWORD. 
58 0B 00 MOVL #SHORT_TIME_LEN,R8 SETUP STRING DESCRIPTOR FOR A 
BUFF HOLD THE CURRENT TIME. 
7E 58 7D mova R8,-(SP) ALLOCATE THE STRING DESCRIPTOR ON 
Th K. SAY Twat THE LENGTH 


BU 
; THAT HOURS/MINUTES/ SECONDS ARE 
NOT RETURNED. 
; LOAD ADDRESS OF THE STRING 


98 13 i stn 208 
009A Bi B 39 BRU 80$ 
BA 
54 53 00 BA 195 20$: MOVL R3,R4 


53 SE 00 MOVL SP,R3 
; DESCRIPTOR INTO A REGISTER SO 
THAT IT CAN BE USED “ae A SYSTEM 
; SERVICE CALL ARGUMEN 
SASCTIM_S - ASK SYSTEM FOR 


“TIMBUF =(R3) 


PPPS FWWWWNIWWIWIWIWIRIRIPINININNINININ 2 OOOO OOOO OO 


SPECIFY THE ig ie DESCRIPTOR 
UST MADE ON THE STACK. 
BRANCH ON ERROR RETURN. 


BLBC RO,408 
MOVa inn 
g nigeiene TIME SPECIFICATION TO 


#*A/ 0:0:0.0/,SHORT_TIME 


[sand 
Szoc 


f 50 4 
0B AJ 302E303A 303A3020 8F D 


OOO mW HMMMMMMMMMMoOOVCSCVTIVTVITITIANO 


OF FNS FLOOD DOONAN OWA BE BH tS SIM MD ODOOMGoomn 


| 
K SYSTEM FOR AN ASCII STRING 
REPRESENTING THE CURRENT DAYTIME. 
| 


DNAMNE WIR OS OD NAW WIN SO OO NAME WH SO ODNOAUE WN OO OONOAOUE WO 


SOOCOSOOSOOOOOOOOOOSOOOSOSOOOSOOCOSOSOOSOOOOOOOOOOOoOO 


WAAANIAIA AAA AAA AAAI AIP POPONONIPINMOPONONY 


TODAY ATE 
63 08 co ADDL2 #MIDNIGHT_LEN, (R3) NOW EXTEND. THE BUFFER LENGTH 
REPRESENTED IN THE STRING 
DESCRIPTOR TO NEW STRING LENGTH. 
52. OB AC DO MOVL 8(AP) ,R2 GET THE ADDRESS INTO WHICH THE | 
64-BIT TIME VALUE IS TO BE_ RETURNED. 
SBINTIM_S - ASK SYSTEM FOR THE BINARY TIME | 
TIMBUF =(R3) ,- EQUIVALENT OF THE ASCII TIME STRING. | 
0 - SPECIFY AN INPUT BUFFER AND 
TIMADR=(R2) AN OUTPUT ADDRESS INTO WHICH THE | 
1 VALUE CAN BE WRITTEN. 
2050 £9 031 SLC, RO.408 BRANCH ON ERROR, | 
54 02 «Ch (031 MULL2 #2.R4 CONVERT THE INDEX INTO THE TIME | 
1 TABLE INTO A LONGWORD INDEX. s | 
82 FDOC CF44 CO 031 ADDL2  TIME_TABLECR4], (R2)+ ADD THE TIME FACTOR FOR "YESTERDAY", | 
2 ‘TODAY, OR “TOMORROW TO THE 
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CvtT = CONVERT cu TIME TO BINARY 15-SEP-1984 9: AX/VMS Macro V04-00 Pa 
04-008 CNV_MNEM_DAY 46-SEP-1984 $3 3 3 CLIUTL.SRCICVTTIME.MAR; 1 et 
62 FDOA CF44 ps ADWC = TIME_TABLE*4(R4],(R2) ; 64-BIT BINARY TIME VALUE. 
3 CMPB CAP) 7883 + 3RD ARGUMENT PRESENT? 
BLSSU + BRANCH IF NOT 
63 at : VL ss #FULL_TIME_LEN, (R3) + ALLOW THE OUTPUT ASCII STRING TO 
E : BE THE FULL SIZE OF THE OUTPUT BUFFER. 
E SASCTIM_S - : TH HE JA JUSTED BINARY TIME VALUE BACK 
E - : TO AN etidh STRING ONCE AGAIN. 
E TIMBUF =(R3),- : SPECIFY THE STRING DESCRIPTOR FOR 
E - : THE OUTPUT BUFFER 
E TIMADR=@8 (AP) , = : AND THE ADDRESS OF THE TIME VALUE. 
f : OUTPUT BUFFER. 
E TIMLEN=(R3) 
58 $3 7D i MOVa = (R3) RB : GET DESCRIPTOR OF OUTPUT STRING 
0450 €8 41 BLBS RO, 50$ : BRANCH ON SUCCE 
44 : ERROR HANDLING 
44 40$: CLRL RB : RESET LENGTH FIELD OF OUTPUT STRING 
46 : DESCRIPTOR BACK TO ZERO. 
i BRB 70$ : BRANCH TO RETURN CODE. 
a34 50$: BSBW RETURN. STRING : RETURN STRING TO CALLER 
0348 BLBC ~—_- RO, 708 : BRANCH IF COPY ERROR 
O34 60$:  MOVL #1,RO : MOVE A SUCCESS INDICATOR INTO RO. 
0351 70$:  ADDL2 #8,SP : RESTORE THE STACK TO ITS INITIAL 
0 34 > STATE. 
b3e¢ 8 80$:  ADDL2 4#4,SP ; MORE STACK RESTORATION. 
0397 9 RSB : RETURN TO CALLER. 
$338 


FULL TIME_LEN 
HOURS 


ILLCHR 
LIBSCVT_ATIME 
LIBSCVT_DTIME 
LIBSCVT TIME 
LIBSSCOPY_DxDx 
MAX 


oz ww 


R 
RETUR' 
SCRAT 


TEMPDESC 
TEMPSTRING 
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= CONVERT CLI TIME TO BINARY 
Psect synopsis 
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H Psect Synopsis ; 


PSECT name Allocation PSECT No. Attributes 


. S « 00000000 ( ie 0 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS FFFFFFC4 = ¢ -) QO1¢ 1.) NOPIC USR CON ABS~ LCL NOSHR x RD WRT NOVEC BYTE 
_CNVCLI_CODE 8 00358 ¢ $9 6.) ¢ ( §°} NOPIC Usk CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 
TCNVCLIZSTATE 0008 ¢ 140.) ( 3.2) NOPIC R CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
fer carer ones eseccos ene sows . 
! 1 Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 1 0:00: 8. 7 :00:01.05 
ponnege processing } 0:09: 2 9 08: 4°59 
Syabol table sort 159 0: ° 3 af 1.91 
Symbol table output 00:00: :07 0: 0:00:07 
Psect synopsis output N:00:00.0 0:00:00.03 
Cross-reference output 88:88! 0.0 ee fe ty 
Assembler run totals 57 :00:14.0 0:00:43. 


The working set_lLimit was 1500 pages. 

52624 bytes (103 pages) of virtual memory were used to buffer the intermediate g° ode. 

There were 40 pages of symbol table space allocated to hold 619 non-local and 33 local symbols. 
1 source Lines were read in Pass 1, producing 27 object records in Pass 2. 

9 pages of virtual memory were used to define 17 macros. 
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Macro library name Macros defined 


“$255$DUA : CLIUTL .OBJICLIUTL -MLB;1 é 
S3SDUA 1 

ESYSLIBISTARLET. Oi es2 9 

wtaee nit Libraries) 11 


700 GETS were required to define 11 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:CVTTIME/OBJ=OBJ$:CVTTIME MSRC$:CVTTIME/UPDATE=(ENHS:CVTTIME) *EXECMLS$/LIB+LIB$:CLIUTL/LIB 
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